home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / database / ingres04.lzh / source / decomp / call_dbu.c < prev    next >
Encoding:
C/C++ Source or Header  |  1985-01-23  |  1.0 KB  |  61 lines
  1. # include    <ingres.h>
  2. # include    <aux.h>
  3. # include    <tree.h>
  4. # include    <symbol.h>
  5. # include    <pv.h>
  6. # include    "globs.h"
  7. # include    <sccs.h>
  8.  
  9. SCCSID(@(#)call_dbu.c    8.1    12/31/84)
  10.  
  11. int Synconly, Error_flag;
  12.  
  13.  
  14. /*
  15. **    Call the appropriate dbu with the arguments
  16. **    given in the globals Pc and Pv. Code is a
  17. **    number identifing which dbu to call. Errflag
  18. **    indicates whether an error return from the dbu
  19. **    is possibly expected.
  20. **
  21. **    If errflag is FALSE then call_dbu will syserr on an error
  22. **    If errflag is TRUE then call_dbu will return error value
  23. **
  24. **    Trace Flags:
  25. **        60
  26. */
  27.  
  28. call_dbu(code, errflag)
  29. int    code;
  30. bool    errflag;
  31. {
  32. #    ifdef xDTR1
  33.     if (tTf(60, 0))
  34.         printf("Calling DBU %d\n", code);
  35. #    endif
  36.  
  37.     Error_flag = 0;
  38.     call(code, NULL);
  39.     if (Error_flag != 0 && !errflag)
  40.         syserr("call_dbu:%d,ret %d", code, Error_flag);
  41.     return(Error_flag);
  42. }
  43.  
  44.  
  45.  
  46. /*
  47. **    Proc_error is called if an error
  48. **    block is encountered.
  49. **    Otherwise the error block(s) are passed on up.
  50. */
  51.  
  52. /*ARGSUSED*/
  53. catcherr(pc, pv)
  54. int    pc;
  55. PARM    *pv;
  56. {
  57.     extern int    Error_flag;
  58.  
  59.     Error_flag = pv[0].pv_val.pv_int;
  60. }
  61.